www.gusucode.com > 搜索动力2010 v4.9 > 搜索动力2010 v4.9\code\skin_btn.asp

    换肤：<%listskinbtn(server.MapPath(sysurl&"skin/"))
function listskinbtn(path)
dim fso
dim objFolder
dim objSubFolders
dim objSubFolder
set fso=server.CreateObject("scripting.filesystemobject")
on error resume next
set objFolder=fso.GetFolder(path)
set objSubFolders=objFolder.Subfolders
for each objSubFolder in objSubFolders
Response.Write "<a href=""#"" title="""&objSubFolder.name&""" onclick=""setActiveStyleSheet('"&objSubFolder.name&"'); return false;"">●</a>&nbsp;"
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function%>